www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelComponentLabel\D_step2_add_custom_content_loop_lable.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
response.charset="gb2312"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<script src="../../inc/admin.js" type="text/javascript"></script>
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE2 {
color: #0033FF;
font-size: 15px;
font-weight: bold;
}
-->
</style>
<!------------------------------------------------div:new2 mode_select------------------------>
<div id="www2" style="filter:blendTrans(duration=1);left:1px;top:1px; visibility:hidden;display:none;width:200px; z-index:2; border: 1px dashed #999999;">
<table width="550" height="307" border="1" cellpadding="0" cellspacing="0" bgcolor="#cccccc" bordercolor="#333333">
<tr><td height="20" width=550 background="../images/titbg.gif" bordercolor="#333333">
选择编辑模式
</td><td height="20" background="../images/titbg.gif" bordercolor="#333333">
<!--a href=# onclick="closen2();">关闭</a-->
</td></tr>
<tr><td colspan=3>
1.<a href="#" onClick="yicenloopmode();">进入 1层循环内容输出 标签编辑模式</a><br><br>
2.<a href="#" onclick="ercenloopmode();">进入 2层循环内容输出(如行,列这2层循环) 标签编辑模式</a><br><br>
</td></tr>
</table>
</div>
<!----------------------------end------div:new2 mode_select------------------------>
<script language="javascript">
<%
Randomize '初始化随机数生成器。
%>
var modes;
var rs_name;
function yicenloopmode(){
rs_name="rs_x_<%=clng(rnd(255)*888+10)%>_2";
document.getElementById("rsname").value=rs_name;
AJAXfade(1,'l_do');
AJAXfade(0,'www2');
AJAXfade(1,'mode1');
AJAXfade(0,'mode2');
AJAXfade(0,'di2xhn');
document.all.aaassb1.mode1.value="1";
}
function ercenloopmode(){
rs_name="rs_x_<%=clng(rnd(255)*888+10)%>_1";
document.getElementById("rsname").value=rs_name;
AJAXfade(1,'l_do');
AJAXfade(0,'www2');
AJAXfade(0,'mode1');
AJAXfade(1,'mode2');
AJAXfade(1,'di2xhn');
document.all.aaassb1.mode1.value="2";
}
</script>
<%
set filea=new Cls_FSO
fpath=request("fpath")
bname="my_b_"&trim(request("bnm"))
sqlcont=trim(request("slqms"))
bname_err=0
if bname="" then
bname_err=1
end if
Dim regEx
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "^[A-Za-z0-9_]+$" ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
retVal = regEx.Test(bname) ' 执行搜索测试。
if trim(request("fenye"))="" then
%>
<script language=javascript>
alert("每页显示数量必填!");
history.go(-1);
</script>
<%
else
if sqlcont="" then
%>
<script language=javascript>
alert("sql查询语句不能为空!");
history.go(-1);
</script>
<%
else
If retVal<>true Then
bname_err=1
End If
if bname_err=1 then
%>
<script language=javascript>
alert("标签名为空 或者 不是字母+数字及_号的组合");
history.go(-1);
</script>
<%
response.end
else
params_str=""
for iit=1 to cint(request("params_len"))
if trim(request("c"&cstr(iit)))<>"" then
sss1=replace(replace(trim(request("c"&cstr(iit))),",",""),"|","")
sss1=replace(replace(sss1,chr(34),"”"),"'","‘")
sss2=replace(replace(trim(request("s"&cstr(iit))),",", "，" ),"|","")
sss2=replace(replace(sss2,chr(34),"”"),"'","‘")
params_str=params_str&sss1&","&sss2&"|"
end if
next
if params_str<>"" then
params_str=left(params_str,len(params_str)-1)
end if
beizhuz=trim(request("lbsm"))
par=split(params_str,"|")
yooo=0
for iiii=0 to ubound(par)
sss33=split(par(iiii),",")
sss3=sss33(0)
for iiiii=0 to ubound(par)
sss44=split(par(iiiii),",")
sss4=sss44(0)
if sss3=sss4 and cint(iiiii)<>cint(iiii) then
yooo=1
end if
next
next
if yooo=1 then
%>
<script language=javascript>
alert("发现参数列表中有同名参数，必须每个参数都不同名字!");
history.go(-1);
</script>
<%
response.end
end if
On Error Resume Next
Set rs = Conn.Execute(sqlcont)
'If Err.Number <> 0 Then
'为了不使where a=$xx_var_asp$i之类错误，所以下面这句加了 and 1=0
If Err.Number <> 0 and 1=0 Then
Set rs = Nothing
FoundErr = True
ErrMsg = ErrMsg & "SQL查询失败，查询代码：" & LabelIntro2 & "错误原因：" & Err.Description
%>
<script language=javascript>
alert("<%=ErrMsg%>");
history.go(-1);
</script>
<%
Err.Clear
Else
if yooo<>1 then
%>
<style type="text/css">
<!--
.STYLE1 {color: #0033FF}
-->
</style>
<div id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 40px;">
<form action="D_chk2_add_custom_content_loop_lable.asp" method="post" name=aaassb1 id="aaassb1">
<table width=730 id="parms" name="parms">
<script language="javascript">
var org_pos=1;
var now_pos=org_pos;
function add_p(aa,bb){
var theTable = document.getElementById("parms");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaaba"+now_pos;
//alert(theTable.rows[rowNumber].id);
theTable.rows[rowNumber].insertCell(0);
theTable.rows[rowNumber].cells[0].innerHTML = "<td>标签参数名"+now_pos+":<input name=c"+now_pos+" type=text value='"+aa+"'>,标签参数"+now_pos+"说明:<input name=s"+now_pos+" type=text value='"+bb+"'></td> <a href=# onclick=del_p('"+theTable.rows[rowNumber].id+"')>删除此参数</a>";
var aa = document.getElementById("params_len");
aa.value=now_pos;
now_pos=now_pos+1;
}
function del_p(r){
if (confirm("确认删除?")==1){
var theTable = document.getElementById("parms");
var r1 = document.getElementById(r);
var llln=parseFloat(theTable.rows.length)-1
for(var ia=0;ia<=llln;ia++)
{
if (theTable.rows[ia].id==r){
theTable.deleteRow(ia);
break;
}
}
}
}
</script>
<%
'==========================================================
filezza=""
ztypee=request("labeltype")
if ztypee<>"" then
fph=request("fpath")
sss1=loadfile("../../Model/ComponentLabels/"&fph&"index_componentlabel.asp")
if instr(1,sss1,"$componentlabelname:",1)<>0 then
nd1_m_label_name=trim(mid(sss1,instr(1,sss1,"$componentlabelname:",1)+20,instr(1,sss1,"$end_componentlabelname",1)-(instr(1,sss1,"$componentlabelname:",1)+20)))
else
nd1_m_label_name=""
end if
if instr(1,sss1,"$componentlabelcixu:",1)<>0 then
nd1_m_label_cixu=trim(mid(sss1,instr(1,sss1,"$componentlabelcixu:",1)+20,instr(1,sss1,"$end_componentlabelcixu",1)-(instr(1,sss1,"$componentlabelcixu:",1)+20)))
else
nd1_m_label_cixu=""
end if
if instr(1,sss1,"$is_sys_componentlabel:",1)<>0 then
nd1_m_label_is_sys=trim(mid(sss1,instr(1,sss1,"$is_sys_componentlabel:",1)+23,instr(1,sss1,"$end_is_sys_componentlabel",1)-(instr(1,sss1,"$is_sys_componentlabel:",1)+23)))
else
nd1_m_label_is_sys=""
end if
if ztypee="addmode" then
hzzza="addmode"
filezza="addmode_label.asp"
end if
if ztypee="editmode" then
hzzza="editmode"
filezza="editmode_label.asp"
end if
if ztypee="showmode" then
hzzza="showmode"
filezza="showmode_label.asp"
end if
if ztypee="do_add_mode" then
hzzza="doaddmode"
filezza="do_add_mode_label.asp"
end if
if ztypee="do_edit_mode" then
hzzza="doeditmode"
filezza="do_edit_mode_label.asp"
end if
end if
'========================================================
%>
<tr align="left">
<td colspan="2">
标签保存路径:/Model/ComponentLabels/<%=request("fpath")%><%=filezza%></td>
</tr>
<tr align="left">
<td colspan="2">
<%
sssp=request("fpath")
if sssp<>"" then
sssspq=split(sssp,"/")
ooosss=""
sssr=ubound(sssspq)-1
dddds=sssspq(sssr)
end if
%>
<%
'=================================================
if ztypee<>"" then
%>
<strong>标签名:</strong><span class="STYLE2">{$$<%=nd1_m_label_name%>$<%=hzzza%>$}
</span>
<%else%>
{$$<input name="bnm" type="text" value="<%=bname%>">}（只能为字母，数字及_号的组合）
<%
end if
'=================================================
%>
</td>
</tr>
<tr align="left">
<td colspan="2">
标签说明:<textarea name="lbsm" cols=40 rows=3><%=request("lbsm")%></textarea></td>
</tr>
</table>
<table>
<tr align="left">
<td colspan="2">
<br />
<a href=# onClick="add_p('','');"><font style="font-size:14px" color="#3300FF">点击本处添加更多参数</font></a>
<br /><br />
如标签参数名1 填 name1,标签参数1说明 填 "名字参数"
</td>
</tr>
<tr align="left">
<td colspan="2">
每页显示数量:<input name="fenye" type="text" value="<%=request("fenye")%>">
<br />
<font color="#FF6600">(每页显示数量中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值 )</font><br><br>
</td>
</tr>
<tr align="left">
<td colspan="2">
是否分页显示:<select name="iffen">
<option value="1" <%if request("iffen")="yes" then response.write "selected"%>>是</option>
<option value="0" <%if request("iffen")="no" then response.write "selected"%>>否</option>
</select>
</td>
</tr>
<tr align="left" bgcolor="#DEF3FE">
<td colspan="2">
本标签内使用的rs记录集的自定义对象名:<input name="rsname" type="text" value="" id="rsname"> 如果标签的标签正文代码内再嵌套另一标签(如循环嵌套)，则多个标签的rs记录集的对象名可能冲突，此时要在这里改这个对象名，你在标签的正文代码中要用这个对象名来调用本标签使用的rs记录集
</td>
</tr>
<tr align="left">
<td colspan="2" height="8">
</td>
</tr>
<tr align="left">
<td colspan="2">
<div id="di2xhn" style="filter:blendTrans(duration=1);left:1px;top:1px; visibility:hidden;display:none; z-index:2;">
第二层循环的循环次数（如每行的循环列数）:<input name="di2xh_num" type="text" value="3">
<br />
<font color="#FF6600">(第二层循环的循环次数中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值)
</font> <br /> <br />
</div>
</td>
</tr>
<tr align="left">
<td width="86">
查询sql语句:</td>
<td width="632">
<font style="font-size:14px" color="#3300FF">在以下的 <strong>查询sql语句</strong>中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值 <br />
还可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值， <br />
而用$xx_request_asp$i可以读request("i")的值,注意单引号的使用 . 并可以自定义where子句<br>
,注意 如$xx_var_asp$i要用空格或'号或%号或,号或)号或]号来结束，<br>
如where aaa=$xx_var_asp$i and.... 是对的 <br>
而where aaa=$xx_var_asp$iand....是错的 </font><br>
<textarea name="sqlms" cols=80 rows=8 onChange="update_sql_list();"><%=sqlcont%></textarea></td>
</tr>
<tr align="left"><td colspan="2">
<font style="font-size:14px" color="#3300FF">
循环体代码支持与asp代码混合写,不支持标签嵌套,但是支持标签代码内再用标签<br />
在以下的 循环体代码中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值
<br />调用标签时还可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值，
<br />
如{$$show_class(1,$xx_var_asp$i)，使标签与asp代码交互
<br />
而用$xx_request_asp$i可以读request("i")的值
<hr>
系统使用的数据库连接对象名为newdsoft_conn_obj ，你可以调用这个连接对象<br />
</font>
</td>
</tr>
</table>
<script language="javascript">
var nMessage=document.getElementById("ksdaima");
function setf(who) {
nMessage = document.getElementById(who);
}
function AppTag(str1)
{
nMessage.value += str1;
}
function InsertTag(str1)
{
if ((document.selection)&&(document.selection.type == "Text")) {
var range = document.selection.createRange();
var ch_text=range.text;
range.text = ch_text + str1;
}
else
{
nMessage.value=nMessage.value+str1;
nMessage.Message.focus();
}
}
</script>
<br />
<table width=700 border=1 cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="80">
可以调用的数据库字段列表(点下面某输入框后,再点击某字段列表来插入他们到输入框):
</td>
<td width="500">
<table id="sqlplist" width=600 border=1 cellpadding="0" cellspacing="0" bordercolor="#0000ff">
</table>
</td>
</tr>
</table>
<br />
<script language="javascript">
var theTable1 = document.getElementById("sqlplist");
function update_sql_list(){
var p1=document.getElementById("sqlms").value.indexOf("select ",0)+7;
var p2=document.getElementById("sqlms").value.indexOf(" from ",0);
var sqlstr2=document.getElementById("sqlms").value.substring(p1,p2);
//alert(sqlstr2);
for(var ff1 =0;ff1<theTable1.rows.length;ff1=ff1+1)
{
theTable1.deleteRow(parseInt(ff1));
theTablea.deleteRow(parseInt(ff1));
theTable3.deleteRow(parseInt(ff1));
}
//删两次才干净-----不知道为什么
for(ff1 =0;ff1<theTable1.rows.length;ff1=ff1+1)
{
theTable1.deleteRow(parseInt(ff1));
theTablea.deleteRow(parseInt(ff1));
theTable3.deleteRow(parseInt(ff1));
}
//删两次才干净-----不知道为什么
for(ff1 =0;ff1<theTable1.rows.length;ff1=ff1+1)
{
theTable1.deleteRow(parseInt(ff1));
theTablea.deleteRow(parseInt(ff1));
theTable3.deleteRow(parseInt(ff1));
}
//theTable1.innerHTML="";
var bpos=0;
var www2="";
var num=0;
var cha=0;
for(var iitt=0;iitt<=sqlstr2.length-1;iitt++)
{
if(sqlstr2.substring(iitt,iitt+1)==","|iitt==sqlstr2.length-1){
if (iitt==sqlstr2.length-1) {
cha=1; }
else
{cha=0;
}
www2=sqlstr2.substring(bpos,iitt+cha);
bpos=iitt+1;
num=num+1;
//-------------------------------------------------------
if ((num%2)==1){
cols=0;
var rowNumber1 = parseInt(theTable1.rows.length);
theTable1.insertRow(rowNumber1);
theTable1.rows[rowNumber1].id="aaaaddd"+rowNumber1;
theTablea.insertRow(rowNumber1);
theTablea.rows[rowNumber1].id="aaaaddddccc"+rowNumber1;
theTable3.insertRow(rowNumber1);
theTable3.rows[rowNumber1].id="aaaaddddccc33"+rowNumber1;
}
theTable1.rows[rowNumber1].insertCell(cols);
theTable1.rows[rowNumber1].cells[cols].innerHTML ="<td height=25 width=150 style='word-break:break-all;background-color:#eeeeee'><a href='javascript:' onclick=insertsql('"+www2+"');>"+www2+"</a></td>";
theTablea.rows[rowNumber1].insertCell(cols);
theTablea.rows[rowNumber1].cells[cols].innerHTML ="<td height=25 width=150 style='word-break:break-all;background-color:#eeeeee'><a href='javascript:' onclick=insertsql2('"+www2+"');>"+www2+"</a></td>";
theTable3.rows[rowNumber1].insertCell(cols);
theTable3.rows[rowNumber1].cells[cols].innerHTML ="<td height=25 width=150 style='word-break:break-all;background-color:#eeeeee'><a href='javascript:' onclick=insertsql3('"+www2+"');>"+www2+"</a></td>";
cols=cols+1;
}//end if
}//end for
}
function insertsql(sss){
var rst2=showModalDialog("D_select_field_format.asp?fldname="+sss,"","dialogWidth:400px; dialogHeight:280px; help: no; scroll: no; status: no");
if(rst2!=undefined){
InsertTag(rst2);
}
}
function insertsql2(sss){
var rst2=showModalDialog("D_select_field_format.asp?fldname="+sss,"","dialogWidth:400px; dialogHeight:280px; help: no; scroll: no; status: no");
try{
if ((document.selection)&&(document.selection.type == "Text")) {
var range = document.selection.createRange();
var ch_text=range.text;
range.text = ch_text + rst2;
}
else
{
document.getElementById("Contentt").value=document.getElementById("Contentt").value+rst2;
document.getElementById("Contentt").focus();
}
}
catch(e)
{
}
if(rst2!=undefined&&fckddd==1){
var oEditor = FCKeditorAPI.GetInstance("Content") ;
oEditor.InsertHtml(rst2);
}
}
function insertsql3(sss){
var rst2=showModalDialog("D_select_field_format.asp?fldname="+sss,"","dialogWidth:400px; dialogHeight:280px; help: no; scroll: no; status: no");
try{
if ((document.selection)&&(document.selection.type == "Text")) {
var range = document.selection.createRange();
var ch_text=range.text;
range.text = ch_text + rst2;
}
else
{
document.getElementById("Content2t").value=document.getElementById("Content2t").value+rst2;
document.getElementById("Content2t").focus();
}
}
catch(e)
{
}
if(rst2!=undefined&&fckddd==1){
var oEditor = FCKeditorAPI.GetInstance("Content2") ;
oEditor.InsertHtml(rst2);
}
}
</script>
<div id="mode1" style="filter:blendTrans(duration=1);left:1px;top:1px; visibility:hidden;display:none;width:200px; z-index:2; border: 0px dashed #999999;">
<table bgcolor="#F2F2F2" width=600>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
整个循环开始前的html代码输出（可以为空）,(支持写入asp代码(要用<% %>号括起来)与标签)：</td>
<td width=500>
<textarea name="globa_qian_asp" cols=65 rows=5 onFocus="setf('globa_qian_asp')"><table border="0" cellpadding="0" cellspacing="0"></textarea>
<br><a href="javascript:admin_Size(-10,'globa_qian_asp')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'globa_qian_asp')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="left" align="center"><td width=180>
在sql赋值语句(如sql="select .....")后面执行的asp代码（如 控制sql语句的值的asp代码，系统使用的sql语句变量名为sql）,(支持写入asp代码(要用<% %>号括起来)与标签)，可以为空：</td>
<td width=500>
<textarea name="sql_run" cols=65 rows=5 onFocus="setf('sql_run')"><%=hhksss1%></textarea>
<br><a href="javascript:admin_Size(-10,'sql_run')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'sql_run')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
每次循环前要执行的asp代码（可以为空）,要用<% %>号括起来：</td>
<td width=500>
<textarea name="run_asp_1_1" cols=65 rows=5 onFocus="setf('run_asp_1_1')"></textarea>
<br><a href="javascript:admin_Size(-10,'run_asp_1_1')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'run_asp_1_1')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table width=600>
<tr valign="middle" align="left"><td width=170>
每次循环的开始html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="ksdaima" cols=65 rows=5 onfocus="setf('ksdaima')"><tr><td></textarea>
<br><a href="javascript:admin_Size(-10,'ksdaima')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'ksdaima')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<br>
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<!--input type=button onclick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里"-->
<br>
<table width=700 border=1 cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="80">
<font color="#0033FF">
可以调用的数据库字段列表(点下面编辑器后,再点击右边某字段列表来插入他们到编辑器里):
</font>
</td>
<td width="500">
<table id="sqlplistaaaaa" width=600 border=1 cellpadding="0" cellspacing="0" bordercolor="#0000ff">
</table>
</td>
</tr>
</table>
<br />
<!--input type=button onClick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里"-->
<br>
<br>
<strong> <a href="../adminModel/D_view_sys_cang_labels.asp" target="_blank"><font color="#0000FF" style="font-size:15px; text-decoration:underline">点击本处查看系统特殊标签</font></a></strong>
<br><br>
<table bgcolor="#F2F2F2" align="center" width=600 bgcolor="#CfCfCf" border="1" cellpadding="0">
<tr valign="middle" align="center">
<td width=50% bgcolor="#c9c9c9" height="20">
<a href="javascript:void(0)" onClick="chgedit('2')">使用可视化html文本编辑器</a></td>
<td width=50% bgcolor="#c9c9c9">
<a href="javascript:void(0)" onClick="chgedit('1')">使用纯文本编辑器</a>
</td>
</tr>
</table>
<br>
<input type="hidden" value="1" name="eemode" ID="eemode">
<script language="javascript">
function chgedit(a){
document.getElementById("eemode").value=a;
if (a=="1"){
document.getElementById("edt1").style.display="";
document.getElementById("edt2").style.display="none";
}
if (a=="2"){
document.getElementById("edt1").style.display="none";
document.getElementById("edt2").style.display="";
}
}
</script>
<table bgcolor="#F2F2F2" id="edt1">
<tr valign="middle" align="center"><td width=80>
循环体代码：</td>
<td width=600>
<textarea name="Contentt" id="Contentt" cols=70 rows=20><table border=0><tr><td>循环内容</td></tr></table></textarea>
<br><a href="javascript:admin_Size(-10,'Contentt')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'Contentt')"><img src="../images/plus.gif" unselectable="on" border='0'></a></td>
</tr>
</table>
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<br>
<table id="edt2" style="display:none">
<tr valign="middle" align="center"><td width=80>
循环体html代码输出(支持写入asp代码与标签)：</td>
<td width=600>
<textarea name="Content" id="Content" cols=70 rows=20 style="display:none"><table border=0><tr><td>循环内容</td></tr></table></textarea>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
var oFCKeditor = new FCKeditor('Content') ;
oFCKeditor.BasePath = '../../ND_editor/FCKeditor2_5/' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '85%' ;
oFCKeditor.Height = '400' ;
oFCKeditor.Value = '<table><tr><td>循环内容</td></tr></table>' ;
oFCKeditor.ReplaceTextarea() ;
//-->
</script></td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
每次循环的结束html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="jiesdaima" cols=65 rows=5 onfocus="setf('jiesdaima')"></td></tr></textarea>
<br><a href="javascript:admin_Size(-10,'jiesdaima')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'jiesdaima')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
整个循环结束后的html代码输出（可以为空）,(支持写入asp代码(要用<% %>号括起来)与标签)：</td>
<td width=500>
<textarea name="globa_end_asp" cols=65 rows=5 onFocus="setf('globa_end_asp')"></table></textarea>
<br><a href="javascript:admin_Size(-10,'globa_end_asp')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'globa_end_asp')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
%>
</div>
<div id="mode2" style="filter:blendTrans(duration=1);left:1px;top:1px; visibility:hidden;display:none;width:600px; z-index:2; border: 0px dashed #999999;">
<table bgcolor="#F2F2F2" width=600>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
整个循环开始前的html代码输出（可以为空）,(支持写入asp代码(要用<% %>号括起来)与标签)：</td>
<td width=500>
<textarea name="globa_qian_asp2" cols=65 rows=5 onFocus="setf('globa_qian_asp2')"><table border="0" cellpadding="0" cellspacing="0"></textarea>
<br><a href="javascript:admin_Size(-10,'globa_qian_asp2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'globa_qian_asp2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="left" align="center"><td width=180>
在sql赋值语句(如sql="select .....")后面执行的asp代码（如 控制sql语句的值的asp代码，系统使用的sql语句变量名为sql）,(支持写入asp代码(要用<% %>号括起来)与标签)，可以为空：</td>
<td width=500>
<textarea name="sql_run2" cols=65 rows=5 onFocus="setf('sql_run2')"></textarea>
<br><a href="javascript:admin_Size(-10,'sql_run2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'sql_run2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第一层循环(如行循环)的每次循环前要执行的asp代码（可以为空）,要用<% %>号括起来：</td>
<td width=500>
<textarea name="run_asp1" cols=55 rows=5 onfocus="setf('run_asp1')"></textarea>
<br><a href="javascript:admin_Size(-10,'run_asp1')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'run_asp1')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第二层循环(如列循环)的每次循环前要执行的asp代码（可以为空）,要用<% %>号括起来：</td>
<td width=500>
<textarea name="run_asp2" cols=55 rows=5 onfocus="setf('run_asp2')"></textarea>
<br><a href="javascript:admin_Size(-10,'run_asp2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'run_asp2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第一层循环(如行循环)的每次循环的开始html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="yi_ksdaima2" cols=55 rows=5 onfocus="setf('yi_ksdaima2')"><tr></textarea>
<br><a href="javascript:admin_Size(-10,'yi_ksdaima2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'yi_ksdaima2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第二层循环(如列循环)的每次循环的开始html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="ksdaima2" cols=55 rows=5 onFocus="setf('ksdaima2')"><td></textarea>
<br><a href="javascript:admin_Size(-10,'ksdaima2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'ksdaima2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<br>
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<br />
<table width=700 border=1 cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="80">
<font color="#0033FF">
可以调用的数据库字段列表(点下面编辑器后,再点击右边某字段列表来插入他们到编辑器里):
</font>
</td>
<td width="500">
<table id="sqlplistaaaaa2" width=600 border=1 cellpadding="0" cellspacing="0" bordercolor="#0000ff">
</table>
</td>
</tr>
</table>
<br />
<!--input type=button onClick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里"-->
<br>
<br>
<strong> <a href="../adminModel/D_view_sys_cang_labels.asp" target="_blank"><font color="#0000FF" style="font-size:15px; text-decoration:underline">点击本处查看系统特殊标签</font></a></strong>
<br><br>
<table bgcolor="#F2F2F2" align="center" width=600 bgcolor="#CfCfCf" border="1" cellpadding="0">
<tr valign="middle" align="center">
<td width=50% bgcolor="#c9c9c9" height="20">
<a href="javascript:void(0)" onClick="chgedit2('2')">使用可视化html文本编辑器</a></td>
<td width=50% bgcolor="#c9c9c9">
<a href="javascript:void(0)" onClick="chgedit2('1')">使用纯文本编辑器</a>
</td>
</tr>
</table>
<br>
<script language="javascript">
function chgedit2(a){
document.getElementById("eemode").value=a;
if (a=="1"){
document.getElementById("edtb1").style.display="";
document.getElementById("edtb2").style.display="none";
}
if (a=="2"){
document.getElementById("edtb1").style.display="none";
document.getElementById("edtb2").style.display="";
}
}
</script>
<table bgcolor="#F2F2F2" id="edtb1">
<tr valign="middle" align="center"><td width=80>
循环体代码：</td>
<td width=600>
<script src="../../inc/admin.js" type="text/javascript"></script>
<textarea name="Content2t" id="Content2t" cols=70 rows=20><table border=0><tr><td>循环内容</td></tr></table></textarea>
<br><a href="javascript:admin_Size(-10,'Content2t')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'Content2t')"><img src="../images/plus.gif" unselectable="on" border='0'></a></td>
</tr>
</table>
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<br>
<table id="edtb2" style="display:none">
<tr valign="middle" align="center"><td width=600>
循环体html代码输出(支持写入asp代码与标签)：</td>
<td width=600>
<textarea name="Content2" id="Content2" cols=70 rows=20 style="display:none"><table border=0><tr><td>循环内容</td></tr></table></textarea>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
var oFCKeditor = new FCKeditor('Content2') ;
oFCKeditor.BasePath = '../../ND_editor/FCKeditor2_5/' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '500' ;
oFCKeditor.Height = '400' ;
oFCKeditor.Value = '<table><tr><td>循环内容</td></tr></table>' ;
oFCKeditor.ReplaceTextarea() ;
var fckddd=0;
function FCKeditor_OnComplete( editorInstance )
{
//alert("3423");
fckddd=1;
}
//-->
</script></td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第二层循环(如列循环)的每次循环的结束html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="jiesdaima2" cols=55 rows=5 onfocus="setf('jiesdaima2')"></td></textarea>
<br><a href="javascript:admin_Size(-10,'jiesdaima2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'jiesdaima2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第一层循环(如行循环)的每次循环的结束html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="yi_jiesdaima22" cols=55 rows=5 onfocus="setf('yi_jiesdaima22')"></tr></textarea>
<br><a href="javascript:admin_Size(-10,'yi_jiesdaima22')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'yi_jiesdaima22')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
整个循环结束后的html代码输出（可以为空）,(支持写入asp代码(要用<% %>号括起来)与标签)：</td>
<td width=500>
<textarea name="globa_end_asp2" cols=65 rows=5 onFocus="setf('globa_end_asp2')"></table></textarea>
<br><a href="javascript:admin_Size(-10,'globa_end_asp2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'globa_end_asp2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
%>
</div>
<table>
<tr align="center" width=600>
<td>
<input type="hidden" name="mode1" value="" id="mode1" />
<input type="hidden" name=fpath value="<%=request("fpath")%>" />
<input type="hidden" name="params_len" id="params_len" value="" />
<input type="hidden" name=p_page value="<%=request("p_page")%>" />
<input type="hidden" name=labeltype value="<%=request("labeltype")%>"/>
<input type="submit" value="添 加" />
</td>
</tr>
</table>
</form>
</div>
<%
end if
end if
end if
%>
<script language=javascript>
var aa = document.getElementById("params_len");
aa.value=0;
<%
if trim(params_str)="" then
lll=-1
else
ssssppp=split(params_str,"|")
lll=ubound(ssssppp)
end if
%>
<% for i=0 to lll
ssssppp2=split(ssssppp(i),",")
sss1=ssssppp2(0)
sss2=ssssppp2(1)
%>
add_p("<%=sss1%>","<%=sss2%>");
<%next%>
</script>
<script language=javascript>
AJAXfade(0,'l_do');
AJAXfade(1,'www2');
var theTablea = document.getElementById("sqlplistaaaaa");//必须放在最后
var theTable3 = document.getElementById("sqlplistaaaaa2");//必须放在最后
update_sql_list();//必须放在最后
</script>
<%
AJAXcloseLoader()
%>
</html>